c      Input values....
      common /USR_PARAM/  RESGH1EE   ,IMSGH1EE   ,REPGH1EE   ,IMPGH1EE   ,RESGH2EE   ,IMSGH2EE   ,REPGH2EE   ,
     +IMPGH2EE   ,RESGH3EE   ,IMSGH3EE   ,REPGH3EE   ,IMPGH3EE   ,RESGH1MUMU ,IMSGH1MUMU ,REPGH1MUMU ,IMPGH1MUMU ,RE
     +SGH2MUMU ,IMSGH2MUMU ,REPGH2MUMU ,IMPGH2MUMU ,RESGH3MUMU ,IMSGH3MUMU ,REPGH3MUMU ,IMPGH3MUMU ,RESGH1TATA ,IMSG
     +H1TATA ,REPGH1TATA ,IMPGH1TATA ,RESGH2TATA ,IMSGH2TATA ,REPGH2TATA ,IMPGH2TATA ,RESGH3TATA ,IMSGH3TATA ,REPGH3
     +TATA ,IMPGH3TATA ,RESGH1UU   ,IMSGH1UU   ,REPGH1UU   ,IMPGH1UU   ,RESGH2UU   ,IMSGH2UU   ,REPGH2UU   ,IMPGH2UU
     +   ,RESGH3UU   ,IMSGH3UU   ,REPGH3UU   ,IMPGH3UU   ,RESGH1CC   ,IMSGH1CC   ,REPGH1CC   ,IMPGH1CC   ,RESGH2CC  
     + ,IMSGH2CC   ,REPGH2CC   ,IMPGH2CC   ,RESGH3CC   ,IMSGH3CC   ,REPGH3CC   ,IMPGH3CC   ,RESGH1TT   ,IMSGH1TT   ,
     +REPGH1TT   ,IMPGH1TT   ,RESGH2TT   ,IMSGH2TT   ,REPGH2TT   ,IMPGH2TT   ,RESGH3TT   ,IMSGH3TT   ,REPGH3TT   ,IM
     +PGH3TT   ,RESGH1DD   ,IMSGH1DD   ,REPGH1DD   ,IMPGH1DD   ,RESGH2DD   ,IMSGH2DD   ,REPGH2DD   ,IMPGH2DD   ,RESG
     +H3DD   ,IMSGH3DD   ,REPGH3DD   ,IMPGH3DD   ,RESGH1SS   ,IMSGH1SS   ,REPGH1SS   ,IMPGH1SS   ,RESGH2SS   ,IMSGH2
     +SS   ,REPGH2SS   ,IMPGH2SS   ,RESGH3SS   ,IMSGH3SS   ,REPGH3SS   ,IMPGH3SS   ,RESGH1BB   ,IMSGH1BB   ,REPGH1BB
     +   ,IMPGH1BB   ,RESGH2BB   ,IMSGH2BB   ,REPGH2BB   ,IMPGH2BB   ,RESGH3BB   ,IMSGH3BB   ,REPGH3BB   ,IMPGH3BB  
     + ,RESGHCUD   ,IMSGHCUD   ,REPGHCUD   ,IMPGHCUD   ,RESGHCUS   ,IMSGHCUS   ,REPGHCUS   ,IMPGHCUS   ,RESGHCUB   ,
     +IMSGHCUB   ,REPGHCUB   ,IMPGHCUB   ,RESGHCCD   ,IMSGHCCD   ,REPGHCCD   ,IMPGHCCD   ,RESGHCCS   ,IMSGHCCS   ,RE
     +PGHCCS   ,IMPGHCCS   ,RESGHCCB   ,IMSGHCCB   ,REPGHCCB   ,IMPGHCCB   ,RESGHCTD   ,IMSGHCTD   ,REPGHCTD   ,IMPG
     +HCTD   ,RESGHCTS   ,IMSGHCTS   ,REPGHCTS   ,IMPGHCTS   ,RESGHCTB   ,IMSGHCTB   ,REPGHCTB   ,IMPGHCTB   ,RESGHC
     +VEE  ,IMSGHCVEE  ,REPGHCVEE  ,IMPGHCVEE  ,RESGHCVMMU ,IMSGHCVMMU ,REPGHCVMMU ,IMPGHCVMMU ,RESGHCVTTA ,IMSGHCVT
     +TA ,REPGHCVTTA ,IMPGHCVTTA ,REGWWH1     ,IMGWWH1     ,REGWWH2     ,IMGWWH2     ,REGZZH1     ,IMGZZH1     ,REGZ
     +ZH2     ,IMGZZH2     ,REGAHCHC    ,IMGAHCHC    ,REGZH1H2    ,IMGZH1H2    ,REGZH1H3    ,IMGZH1H3    ,REGZH2H3  
     +  ,IMGZH2H3    ,REGZHCHC    ,IMGZHCHC    ,REGWPHCH1   ,IMGWPHCH1   ,REGWPHCH2   ,IMGWPHCH2   ,REGWPHCH3   ,IMG
     +WPHCH3   ,REGH1H1H1   ,IMGH1H1H1   ,REGH1H1H2   ,IMGH1H1H2   ,REGH1H2H2   ,IMGH1H2H2   ,REGH1H3H3   ,IMGH1H3H3
     +   ,REGH2H2H2   ,IMGH2H2H2   ,REGH2H3H3   ,IMGH2H3H3   ,REGH1HCHC   ,IMGH1HCHC   ,REGH2HCHC   ,IMGH2HCHC   ,RE
     +GAAHCHC   ,IMGAAHCHC   ,REGAZHCHC   ,IMGAZHCHC   ,REGAWPHCH1  ,IMGAWPHCH1  ,REGAWPHCH2  ,IMGAWPHCH2  ,REGAWPHC
     +H3  ,IMGAWPHCH3  ,REGZZH1H1   ,IMGZZH1H1   ,REGZZH2H2   ,IMGZZH2H2   ,REGZZH3H3   ,IMGZZH3H3   ,REGZZHCHC   ,I
     +MGZZHCHC   ,REGZWPHCH1  ,IMGZWPHCH1  ,REGZWPHCH2  ,IMGZWPHCH2  ,REGZWPHCH3  ,IMGZWPHCH3  ,REGWWH1H1   ,IMGWWH1
     +H1   ,REGWWH2H2   ,IMGWWH2H2   ,REGWWH3H3   ,IMGWWH3H3   ,REGWWHCHC   ,IMGWWHCHC   
